home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / weaveworld rtn(512k).amos / weaveworld rtn(512k).amosSourceCode < prev   
AMOS Source Code  |  1990-10-26  |  627b  |  31 lines
  1. '
  2. '
  3. ' This is to show amos uses with only 512k some of the routines
  4. ' I use in my 'weaveworld' demo. 
  5. '  
  6. ' Sorry, But I Couldn't shoe-horn it into 512k 
  7. '
  8. Bob Update Off 
  9. Unpack 6 To 0
  10. Screen Open 1,352,290,32,Lowres
  11. Get Palette(0)
  12. 'Colour 1,0
  13. Curs Off : Hide 
  14. Screen Hide 0
  15. Screen Copy 0,0,50,352,256 To 1,0,50
  16. Screen To Front 1
  17. Screen 1 : Flash Off : Curs Off : Hide 
  18. Do 
  19.    A=85 : Rem bottom line of image 
  20.    B=20 : Rem top line of image
  21.    C=0 : Rem No Of Lines To Copy
  22.    Repeat 
  23.       Screen Copy 0,0,A,352,A+1 To 1,0,C
  24.       Inc C
  25.       If C=A
  26.          C=0
  27.          Dec A
  28.          Inc C
  29.       End If 
  30.    Until C=A
  31. Loop